(define (make-interval a b)
    (cons a b)
)
(define (lower-bound z)
    (car z)
)
(define (upper-bound z)
    (cdr z)
)


(define (print-interval x)
    (newline)
    (display "[")
    (display (lower-bound x))
    (display ",")
    (display (upper-bound x))
    (display "]")
)

(define my-interval 
    (make-interval 2 3)
)
(print-interval my-interval)
(exit)